home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_1041_TDialogView < prev    next >
Encoding:
Text File  |  1992-04-08  |  739 b   |  36 lines
  1. %case doChoice%
  2.     %if enabled%
  3.         %DoChoice%
  4.     %endif%
  5. %case itemNr%
  6.     %DefineItem%
  7. %case classDecl%
  8.     %if not classname = superClass%
  9.     
  10.         TYPE
  11.             %classname% = OBJECT (%superClass%) 
  12.                   OVERRIDE METHOD DoChoice    (origView:        TView;
  13.                                              itsChoice:        INT16);
  14.                 (*${QINSPECTOR*)
  15.                 OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
  16.                 (*$}*)
  17.             END(*%classname%*);
  18.     %endif%
  19. %case gDeadStripSuppression%
  20.     %StripSuppression%
  21. %case classMethods%
  22.     %if not classname = superClass%
  23.         (*----------*)
  24.         METHOD T%dlogname%.DoChoice    (origView:        TView;
  25.                                       itsChoice:        INT16);
  26.         VAR
  27.             origID:            IDType;
  28.         BEGIN
  29.             origID := origView.fIdentifier;
  30.  
  31.             INHERITED DoChoice (origView, itsChoice);
  32.         END DoChoice;
  33.  
  34.     %endif%
  35.     %ClassMethods%
  36.